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LL 1] $$ 

LL 1] S$ 

LL 1] S$ | 
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LL 1] SSSSSS 
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LL 1] $$ 

LL 1] $$ | 

LL I] $$ | 

LL 1] §§ | 
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MODULE LIB_PROCMD ( ! Process LIBRARY command 
LANGUAGE COL 18536) 
sDENT = 'v04-000 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
is ALL RIGHTS RESERVED. 


tt THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
tt INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
3 PARNSFERRES” NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
.* . 


!® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
* oRPORat | on NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
.* . 


't DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
'# SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


i 
EET OE A STE EP ET TE TE TPT OR 
le+ 
' 
FACILITY: Library command processor 
i ABSTRACT: 
The VAX/VMS Librarian is inyoked by DCL to process the LIBRARY 
command. It utilizes the Librarian procedure set to perform 
the actual modifications to the Library. 
ENVIRONMENT: 


VAX native, user mode. 
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AUTHOR: Benn Schreiber, CREATION DATE: 13-June-1979 

i MODIFIED BY: 

v03-003 MCNO145 Maria del C. Nasr 07-Feb-1984 
Call LIB_COMPRS_LIB t9o for the /DATA qualifier. 
The impact this has, is that whenever the /DATA 
qualifier is used, a /COMPRESS is done by default. 


v03-002 Jw10068 Jim Teague 24-Nov-1982 
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6-Sep-1984 aT Be AX-11 Bliss-32 V4.0-74 
4-Se 7:38:09 LIBRAR.SRCJPROCMD.B32; 
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LIBRAR.SRCJPR 
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V03-001 JwT0056 


14-Sep-1 


Passed related name block for creating compressed 
piprerieg. This ensures, along with an edit in 

lLbr.srclJopenclose.b32, that compressed Torertes 
aah Fog up in the same directory that the originals 
reside in. 


eagque reper’ -1982 
Equipped with och donee ace for /COMPRESS* ones CE 
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; 070 LIBRARY 

: 8 *SYSSLIBRARY:STARLET.L32'; ‘System data structures 

; 7 REQUIRE 

; 07 "PREFIX'; 'Librarian macros 

; 5 REQUIRE 

; 58 *LIBDEF'; !Librarian data structures 

; 46 REQUIRE 

3 re $f "LBRDEF'; ‘Library processor definitions 

; 80 35 FORWARD ROUTINE 

; 8} 40 add_del_mod, ‘Add new module to List of modules to delete 
— ¥ 41 add_rem_sym, 1Add new symbol to List of symbols to removed 
; 8 og petkeystze. ‘Get maximum keysize from Library header 

> 84 4 ib_log_op, 'Log operation on console 

; 8 44 Lib_create_lib, ‘Create Library 

3; & 45 Lib_remove_syms, ‘Remove global symbols from object Library 
; «Sf 46 Lib_delete_mods, 'Delete modules from library 

; «88 47 Lib_insert_mods, ‘Insert modules into Library 

; 89 48 Lib_log_upd, ‘Build updated modules name List 

3 oS r+ Lib_put_luh; ‘Put Library update history record 

a 9 51 EXTERNAL ROUTINE 

; 26 next_input_file, 

; 5 Lib_extrct_mods, 

3; 54 LobrSini_control : ADDRESSING_MODE (GENERAL), !Initialize Library control table 
; © 55 Lbr$open : ADDRESSING_MODE (GENERAL) ipper Library 

: «97 56 Lbr$close : ADDRESSING MODE (GENERALS iClose Library 

; «698 57 Lor$set_index : ADDRESSING MODE (GENERAL) 'Set index number 

: 99 58 Lbr$set_locate : ADDRESSING _MODE (GENERALS, ‘Set locate mode 

; 100 59 lLbr$get_header : ADDRESSING MODE (GENERAL), !Get header info 

; 101 60 lbr$get_index : ADDRESSING MODE (GENERAL), !Return contents of index 

: 136 61 ibr$delete_key : ADDRESSING MODE (GENERALS, ‘Delete syanet from index 

> 10 62 Lbr$put_history : ADDRESSING MODE (GENERALS, !Put a LUH record 

: 104 63 lor$ret_rmsstv : ADDRESSING MODE (GENERAL), !Return RMS status 

; 105 64 sys$tao : ADDRESSING MODE (GENERAL) ‘Format ASCII 

: 106 65 Lib$put_output : ADDRESSING_MODE (GENERAL), ‘write output to terminal 

3; 6107 66 Lib_get_mem, ‘allocate virtual memory 

; 108 67 Lib_free_mem 'deallocate virtual memory 

; 109 68 Lib-comprs_lib, 'Compress the Library / 

3 310 69 Lib_cross_obj, 'Cross reference of obj Lib 

3 M3 4 Lib_list_Tib; 'List contents of Library 

s 915 Le: EXTERNAL 

: 6116 7 Lbr$gl_control : REF BBLOCK ADDRESSING_MODE (GENERAL), !Librarian control block 
3.6115 74 t peat keys ize. 'Max Length of keys in Library 

; 36 75 Lib$gl_allblks, ‘Number of biocks to allocate 

; (117 76 Lib$gl_allgbls, ‘Number of globals to allocate 

; (118 77 Lib$gl_allmods, ‘Number of modules 

: (119 78 Lib$gl_allksz, 'Size of keys in index from command 
: 120 79 Lib$gl_allhis, ‘number of Library Update history records 
: 121 80 Lib$gl_allver, ‘Version of Library to create | 

; te 81 Lib$gl_cre8flags : BITVECTOR ‘Flags for create/compress options set by command 
3 Veo 8¢ Lib$al_deldspa VECTOR LONG), ‘Delete module dispatch vector 

: 126 8 Lib$al_inpdspat : VECTOR [,LONG In ut processing dispatch vector 

s 25 84 Lib$Sal_typnames . VECTOR (br$c_typ_decmx+1, LONG { ‘Library type names 

3 16 82 Lib$Sal_hdrlen : VECTOR Chorse typ, cccaxe! LONG) “eogeh of extra header bytes 
g te? 6 Lib$al_ascbinf : VECTOR Clor$c_ yb_decmx+{, LONG), ‘AS IIl/binary flags 
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ib$_notobjlib, 


ib$_removed; 


textrfa : VECTOR (rfa$c_length, BYTE]; 


1986 98:98:05 


LONG], !Number of indices 
r$c_typ_decmx+1, LONG], !Number of indices 


16 

14 

L_numidx : VECTOR p Lbréc.typ_decaxe 
VECTOR Clor$ 


AX-11 Bliss-32 EE el od 
LIBRAR.SRCJPROCMD .B32; 


‘Module name index number 

‘index number for object Lib gsd index 
'Type of ptorers requested 
‘Control index for Library 
'Listhead for deleted gsd symbols 
'Listhead for deleted module names 
'Listhead for updated module names 
!Control mask 

‘Pointer to ey ag * | FDB 

:Pointer to output FDB 

'Pointer to Library FDB 


‘Library papcener sy close 
‘Error deleting a key 
‘Different type than expected 
‘error in update history 
'Index error 

'Initization error 

!'No match found 

'Not object Library 

‘Removed a symbol 
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GLOBAL ROUTINE Lib_process_cmd = 
BEGIN 


{++ 
FUNCTIONAL DESCRIPTION: 
This routine processes the command Line parsed by Lib_get_command. 
CALLING SEQUENCE: 
INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 

Command has been parsed, data base set up 
OUTPUT PARAMETERS: 

NONE 


IMPLICIT OUTPUTS: 
Command processed 


BREE EEE EE EWN nopnoporeronerornonen) 


OOOO 0000 OOH WOW OW WON NIN NII NIN NNO A OAOAOAO 


IND 
Libnamblk = Lib$gl_libfdb Cfdb$t_nam] : BBLOCK; !Point to NAM block for Library 
LOCAL 
status, 
func; 
func = Lbr$c ‘Assume function is read 
7 IF - Lib$gl_ cote’ Clibsv_ create] ‘If function is create 
8 THEN func = Lbr$c 
99 ELSE IF of boat cFinsk ELibsy delete] _!If function is delete 
OR bSgi_ctimsk CLibSv_insertJior insert or replace 
OR .Lib$gl-ctlmsk Clib$vV_remove) ‘or remove 
THEN func = lbr$c_Update; ‘then function is update 


ooooeo 
MEWN Oo 


initialize the library control table 


perform (Lor$ini control Ribas et tipette, nc, pies L -type. patna 
Tib$_initerr, b$gl_ btdb Cfdb$i- 0 desc] 
If i Libsol ctlmsk Eripse: ach in, 'Creating? 


Pisa. (Lib_create_lib (. Libsgl Libfdb bibFal. Libetl)); 
idsgl_ ctlmsk Clib$v_libopen] = Erue; 'flag Library open 


ELSE OOEGIN Freatenpeen Library 
status = Loptenen rs oratibra -_" Libsgt. Libfdb (Cfdb$l “nandesc)); 'Then open it 
IF .status EQL lbr$_oldli 
OR .status EQL tbr$~ ord ierery 


THEN BEGIN 
Lib$gl_ctlmsk Clib$v_oldlib] = true; 
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; 
: 
; 
: 
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yoe=000 e280 871 382 93:93:08  IBRAR.SRCJPROCMD.B32;1 . (3) 
END; 
IF .status EQ. Lor otygajsack 'If Library type mismatch 
OR .status EQL Lbr$"oldmismch ! or old format Library mismatch 


THEN BEGIN 
IF eheeg type, EQL Lor$c -tyP,0 obj 
r$ret_rmsstv(> EQL Lbr$c tyP.s 
THEN Uibsalac ctlmsk Clib$v_shrsfb) = true 
SIGNAL (Libs tipsgl?Cib bt ab erat Zengaes ,flersrer. rmsstv()J, 
namdesc 


hstb 


hi f,typnanes ATS $gl_type)); 
bipsal. ctlmsk Clibsy rstb alse; ‘Guaranteed not one of these 


END 
IF NOT .status 


; 219 1277 

3 0 1278 

: 1 1279 

; § 1280 4 

; 1281 4 

: 4 1 ¢ 4 

3 220 1 4 

3 § 6 1284 2 

: 7 1285 

; 228 1286 5 

3 9 1287 5 

; 0 1288 5 

; 1 1289 4 

; $8 1290 4 

3 2s 1291 ; ELSE 

> 234 1 ¢ THEN 

3 es: 1 4 BEGIN 

3; @s0 1294 4 IF .status EQL lbr$_errclose 

3 or 1295 4 THEN 

; 238 1296 5 BEGIN 

; 239 1297 5 IF .func EQL Lbr$c ryegete 
; 240 1298 5 THEN ibe tb Oe $_brknlib,1 Libsat_t Libfdb Cfdb$l_namdesc], lbr$_errclose) 
> 241 1299 5 ELSE SIGNAL~(LibS_ ips bree , Libggl_libfab Cfd bst _namdesc], lbr$_errcTose); | 
a: ae 8. es 

; 244 1 ¢ 4 SIGNAL_STOP (Lib$_o only 1, LibSgl_libfdb Cfdb$l_namdesc], 

: 245 1 4 .status 

; 246 1304 END; 

; 247 1305 

: 248 1306 Lib$gl_ type = _lbr$ret _rmsstv(); 'Set type of iierory opened 

; 249 1307 ffosal sett ( 'Get key size from library header 

3 $20 ! : ise ctkmsk- *Clibsy _libopen] = true; 'flag Library open ass) 
; $26 1310 lor Pa locate (Lib$gl_libctl); 'Set locate mode 

; @ 1311 if .func EQL lbr$c_update 

3: 254 Ieig THEN 

ga 131 BEGIN 
; en 1314 LOCAL 
3 TH 1315 neadery BBLOCK Clbr$e_ agesize); 

; 258 P 1316 ea brs et gngecer CF 7 Libctl, hea ory? 

: $2 1317 Tndexerr, g E1bSgt_ti bfdb ${_namdesc)); 

: 260 1318 aheadary CUniSt reer eae GTR 

; 261 1319 THE EN Lib$gl_ctlmsk Clib$v_ Rs A ae true; 

: 588 135) § 5 ENDS 

; see 1356 If going to modify old Library, then convert to new format first 

5 $2 1334 IF .Lib$Sgl_ctlmsk Clib$v_oldlib] 'Old format Library 

: 267 1325 AND (.LibSgl_ctlmsk Clib$Sv_ delete) ! and deleting, inserting 

: 268 1 $$ OR .Tib$gl_ ctlaek Lib$v_insert i or removing symbols 

3; 269 1 § OR .Lib$gl=ctimsk Clib$v_remove)) 

: 70 1328 THEN BEGIN 'then compress to a new Library 

3; e7i 1329 OCAL 

$ i 3 ? saveout fdb; 

; 74 13 § saveoutfdb = Dba 4 | out fdb; ‘Save old output FDB 

: 275 133 Lib$gl_out fdb LibSgl_tmpfdb; ‘And use temporary FDB 
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1 ety 7 93: 83:8 LIBRAR. SRC PROCMD. B32; (3) | 


; 27 1334 Lib$gl_ Cy lask Clib$v convert) = eeues it Lap to issue convert ht ; 
; e7 1335 per tors =" comprs_ Tib (Llor$c update?) zConerese to new format library : 
; 278 1 § etheystz Get keys ze from Library header ; 
; 279 1 ib$g mcttmsk’ et iev, gcenrerts © tates 'No Longer converting : 
; 280 1 3 t ibsglo utfdb = tfdb; ‘ 
3 4 1 br$ $set. Vecate UBS gt, tibet); 'Set locate mode : 
$ ¢ 1340 D; : 
; 28 1341 ' : 
3 Be : tg | Execute the requested operations | ; 
3; 1344 IF .LibSgl_ctimsk Clib$Sv_delete] !Delete modules? : 
: . 1345 THEN : 
; 288 1346 BEGIN | ; 
; 289 134 Lib_delete_mods (); ‘ 
: 290 P 1348 perform (L7b_put_luh ( Lhe$c_deleted ) | : 
; 4 ! )s TibSzhisterr, 1,~lib$gl_libfdb Cfdb$l_namdesc]); | : 
: 29 1351 2 IF <tibéot. ctlmsk Clib$v_insert] '‘Insert or replace | : 
: 294 1 26 1H HEN : 
; 295 135 BEGIN ‘ 
; 296 1328 Liblinsert mods (); : 
; 297 1355 perform (\7b_put_luh ¢ Lhe$c_inserted : 
> 298 1356 sterr, 1, Lib$gl Tibtdb Cfdb$l_namdesc]); | : 
: 299 1357 perform (Libuput_luh ( Lthe$c _re ike ed ) ; 
; 00 1338 TibS=histerr, 1,~Lib$gl_ “Libfdb Cfabst -namdesc]); : 
; 30 1360 2 IF Tibia! ctlmsk Clib$v_remove] : 
: 0° 1361 THEN Lib_remove_syms (); : 
; 305 1368 IF .Lib$Sgl_ctlmsk Clib$v_compress] : 
; 306 1364 OR .Lib$gl_ctlmsk ClibSv_data) : 
; 307 1365 ; THEN ; 
: 308 1366 BEGIN | ‘ 
3 44 1367 Lib_comprs_lib (lbr$c_read); : 
; 310 1368 lbrSset_locate (Lib$gT_ Libetl); 'Reset locate mode after compress : 
: 31) 1369 pecheys'ze Q; : 
3 i 1370 ; 
: Hs 1371 | ; 
: «314 1376 IF +f esol ctlmsk Clib$v_extract] : 
3 315 137 THEN Lib_extrct_mods (); : 
; 316 1374 IF Libsgl ctlmsk aster cross] : 
: 317 1375 THEN Lib_cross (J; : 
: 318 1378 IF .Libsgl ¢ cElmsk rf} Ry list) : 
3 520 1378 c. Rts he fetask sake te _libopen] ‘If Library is open now ; 
3 2 P 1380 rms_perform (Lbr$close (Libsgt Libcetl), 'then close it 3 
; ke P 133 $ csoreit Lbr$ret_rmsstv(), 

; 326 13 2 + L_Libfdb Cras anamdes¢ J) ; | 

: $? : 7 Lib$gl_ ctlmsk “clipes Aalroeans = falSe; ‘mark it closed 

: “ 

3 Ser 1388 : RETURN true 

i; 328 1386 1 END; 
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12-808 - 1 3be 05:93 O8 LIBRAR.SRCJPROCMD. g35. . (3) 
«PSECT SOWNS,NOEXE,2 
00000 TEXTRFA:.BLKB 6 
.EXTRN WNEXT_INPUT_FILE 
-EXTRN LIB ExTRCT MODS 
~EXTRN RSINI_CONTROL 
~EXTRN LBRSOPER. LBRSCLOSE 
-EXTRN LBRSSET_INDEX, LBRSSET_LOCATE 
“EXTRN LBRSGET-HEADER, LBRSGET_ INDEX 
-EXTRN LBRSDELETE KEY, LBRSPUT_HISTORY 
-EXTRN LBRSRET_RMSSTV, SYSSFAO 
.EXTRN LIBSPUT-OUTPUT, LIB_GET_MEM 
-EXTRN LIB_FREE_MEM, LIB_COMPRS LIB 
-EXTRN LIB-CROSS OBJ, LIB_LIST_CI6 
-EXTRN LBRSGL_CONTROL, LIBSGL_REYSIZE 
-EXTRN LIBSGL-ALLBLKS, LIBS$GL-ALLGBLS 
-EXTRN LIBSGL-ALLMODS, LIBSGL-ALLKSZ 
-EXTRN LIBS$GL-ALLHIS, LIBSGL_ALLVER 
-EXTRN LIBSGL-CRESFLAGS 
-EXTRN LIBSAL_DELDSPAT 
.EXTRN LIBSAL~INPDSPAT 
.EXTRN LIBSAL~TYPNAMES 
-EXTRN LIBSAL"HDRLEN, LIBSAL_ASCBINF 
-EXTRN LIBSAL"NUMIDX, LIBSAL_~IDXOPT 
“EXTRN LIBS$GL~ -MODNA mix 
-EXTRN LIBSGL_OBJGS 
-EXTRN LIBSGL- TPE OTT BSGL _LIBCTL 
-EXTRN LIBSGL— 
-EXTRN LIBSGL~ =DELHODL, LIBSGL MODUPDL 
.EXTRN LIBSGL-CTLMSK, LIBSGL_TMPFDB - 
.EXTRN LIBSGL OUTFDB, LIBS$GL-LIBFDB 
-EXTRN LBRS_ERRCLOSE, LBRS$_NOMTCHFOU 
-EXTRN LBRS™ “bupL IBRARY 
.EXTRN LBRS_OLDMISMCH, LBRS_TYPMISMCH 
~EXTRN L1Bs-DuFTPs C1B$_DELKEYERR 
-EXTRN LIBS =pIF P, LIB MMi. 
TEXTRN LIBS-INDEXERR, LIB$_INITERR 
-EXTRN LIB$~ NOME CH FOU, lies. NOTOBJLIB 
EXTRN LIBS-REMOVED 
-PSECT SCODES,NOWRT,2 
OFFC 00000 -ENTRY LB, PROCESS. CMD, Save R2,R3,R4,R5,R6,R7,RB8,~; 1220 | 
5B 00G CF oe 00002 MOVAB ryasee TYPE, R11 : 
3A 0 0 G &F p 900 MOVL  #LIB$_RISTERR, R10 ; 
9 G 00 : 0g MOVAB LBRSSET LOCATE, : 
58 G 8F 3 001 MOVL #LBRS$_ERRCLOSE, Rg : 
57 G 00 9€ 0001 MOVAB LBRSRET_RMSSTV, ; 
26 G CF 9€ MOVAB LIBSGL_CIBCTL, R6 ; 
G cf 9E MOVAB LIBSGL~LIBFDB, R5 3 
4 0000 0G 00 BE 0 MOVAB LIBSSIGNAL, R 3 
3 G CF 9E 4 MOVAB 18 GL_CTLASK, R3 ; 
; FE ce 9 99 9 HOVAB =512(SP), SP ; 
65 0000004 F C E ADDL3 #64, Presse _LIBFDB, RO ; 
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BSGL_CTLMSK 


NC 

BSGL_CTLMSK+1 

, LIBSGL Metis, $ 
> LIBSGLICTLMSK+1, 3$ 
> FUNC 

1 

NC 


14 
09 
#1 
LI 
i 
3$ 
42 
* 
RO 
R1 
FU 
R6 
UL) 


LBRSINI_CONTROL 
STATUS, 4$ 


T 
216. LIBSGL_LIBFDB, -(SP) 
A188 INITERR 


4, LIBSSIGNAL 
se CTLMSK 


R6 

LIBS FDB 

#2, tIB\¢ EATE_LIB 
STATUS ‘ sf 

#16, LIBSGL_LIBFDB, -(SP) 
#2, LBRSOPEN 

RO, STATUS 

STATUS, #LBR$_OLDLIBRARY 
STATUS, #LBR$_OLDMISMCH 


#128, LIBSGL_CTLMSK+2 
STATUS, #LBRS_TYPMISMCH 


STATUS, #LBR$_OLDMISMCH 
SGL_TYPE, #1 
LBRSRET_RMSSTV 


LIBSGL_CTLMSK 


. RO 
ESCRO) 

. LYBSGL “baecoue (SP) 

*LBRSRETOR NSSIV 

SAL_ TYPNAMESCRO) 


A 
BS_D ETYP 
rf LTBSSIGNA 

é, LIBSGL NCTLMSK 


2 2arr- 2-22 — 


De Be Be Be Se Be Fe Be Be Se Ge Fe Fe Be Ge Ge Se Ge Be Ge Se Se Ge Ge Be 
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5 
LIB_PROCMD tbese -1984 02:03:14 AX-11 Bliss-32 V4.0-74 
ve =000 1 ~300n 138i 95:93:08 LIBRAR.SRCJPROCMD.B32; 
41 11 001 BRB 15$ 
3 5 ES 1 § 11$ BLBS_ STATUS 
50 é 10 ¢€1 00108 ADDL3 #16 L 18SG1_ieroB, RO 
8 52 01 O010F CMPL STATUS, R 
24 if 112 BN: =-:-13 
02 6E D1 00114 CML FUNC, #2 
OE 12 00117 BNEG 12$ 
0101 F BB 00119 PUSHR  #*M<RO,RB> 
4 DD 0011D PUSHL #1 
000000006 BF DD O011F PUSHL #LIB$_BRKNLIB 
18 11 00125 BRB 4 
0101 F BB O1 7 12$: PUSHR #*M<RO,R8> 
1 DD 0012B PUSHL # 
000000006 8F DD 001 p PUSHL #LIB$_BRKNLIB 
64 04 FB 001 CALLS #4, LIBSSIGNAL 
11 11 001 6 BRB 
05 BB 00138 13$: PUSHR #4M<RO,R2> 
1 DD O013A PUSHL 
00861098 8F DD 001 ¢ PUSHL #8786072 
000000006 00 04 FB 014 14$: CALLS #4, LIB$STOP 
67 00 FB 00149 15$: CALLS #0, LBRS$RET_RMSSTV 
68 50 bO 0014C MOVL RO, LIBSGL_TYPE 
0000v CF 00 FB OO14F CALLS #0, GETKEYSIZE 
02. A3 10 88 00154 16$:  BISB2 #16, LIBSGL_CTLMSK+2 
56 DD 00158 PUSHL 
69 01 FB O015A CALLS #1, LBRSSET_LOCATE 
02 6E D1 0015D CMPL FUNC, #2 
2A 12 00160 BNEG 18$ 
04 AE OF 00162 PUSHAB HEADARY 
56 DD 0016 PUSHL R 
000000006 00 02 FB 00167 CALLS #2 LBRSGET HEADER 
11 50 £8 0016E BLBS STATUS, 17$ 
50 DD 00171 PUSHL  STATU 
7E 65 10 C1 00175 ADDLS #16, LIBSGL_LIBFDB, -(SP) 
01 DD 0017 PUSHL 
000000006 8F DD 00179 PUSHL #LIB$_INDEXERR 
64 04 Fe gore CALLS #4, LIBSSIGNAL 
78 AE OD 0182 17$: TSTL HEADARY+116 
05 15 0018 BLEG 18$ 
03 a3 40 = BF 88 0187 BISB2 #64, LIBSGL_CTLMSK+3 
02 A3 95 0018C 18S: 1STB LIBSGL_CTLMSK+2 
3C «18 0018F BGEQ 1$ 
OA 01 A’ E8 191 BLBS LIBSGL_CTLMSK+1, 19$ 
05 01 a3 02 E 195 BBS #2, LIGSGL_CTLMSK+1, 19$ 
2E 01 A 4 £1 O019A BBC #4, LIBSGL7CTLMSK+1. 21$ 
52 0000G CF DO OO19F 19%:  MOVL  LIBSGL_OUTFDB. SAVEGUTFDB 
00096 CF 00006 CF p 1A4 MOVL Liesl TMPFDB, LIBS$GL_OUTFDB 
0 A3 01 1AB BISB2 #1, LIBSGL_CTLMSK+3 
2 DD OO1AF PUSHL We 
0000G CF 1 FB 1B1 CALLS @# L1B_COMPRS_LIB 
01 0 F 1B BLBS STATUS, ~20$ 
4 0018 RET 
0000v CF 0 FB OO1BA 208: CALLS #0, GETKEYSIZE 
03 «AS 1 BA 001BF BICB2 #1, LIBSGL_CTLMSK+3 
00006 CF 2 00 1¢3 MOVL § SAVEOUTFDB; LIB$GL_OUTFDB 
56 DD O01C PUSHL R6 
69 01 FB OOICA CALLS #1, LBRSSET_LOCATE 


Se Se Se Se Se Se Se Ge Ge Se Se Ge Ge Ge Se Ge Se Ge Ge Ge Ge Be Se Se Ge Be Be Be Se Be Se Se Be Se Be Se Se F. Fe Se Se Se Se Be Se Be Se Se Se Se Fe Se Be Be Be Se Se 


0° 1388 03: 93: i AX=11 Bliss-32 V4.0-742 Page 11 L 
9 LIBRAR.SRCJPROCMD.B32; 1 (3) Vv 
1¢ 01 AS E9 O0ICD fan LBC LIBSGL CTLMSK+1. 228 5 1344 
0000v CF 0 FB 00101 CALLS , LIB_DELETE_MODS + 1347) i 
1 OD 106 PUSHL + 1349) ; 
0000v CF 1 FB 1D CALLS 18. PUT_LUH ; ; 
D E8 001D BLBS, STATUS "DoS" ; ; 
DD OO1E PUSHL STAT ; ; 
7E 65 10 C1 OO1E ADDL3 #16, ‘ate sirek. -(SP) : 3 
1 OD OO1E PUSHL #1 : ; 
A DD OO1E PUSHL R10 : ; 
64 4 FB OOIEA CALLS #4, LIBSSIGNAL ; 
33 01 A3 E1 OO1ED 22$:  68BC #2. LIBS$GL_CT Unset 24$ + 1351 
0000v CF 6 FB iF CALLS #0, LIB_INSERT + 1354 
DD OO1F PUSHL # + 1356 
0000v CF 01 EB O1F9 CALLS #1, LIB_PUT_LUH : 
OD 0 EB OO1FE BLBS § STATUS, ~23$7 : 
50 DD 00 01 PUSHL 5 3° : 
7E 65 10 C1 00203 ADDL3 #16, LIBSGL_LIBFDB, -(SP) : 
or DD 00207 PUSHL #1 ; 
A 0D 00209 PUSHL R10 3 
64 04 FB 0020B CALLS #4, LIBSSIGNAL ; 
03 DD 00 OF 23$:  PUSHL 4s" + 1358 
0000v CF 01 FB 00 1 CALLS , t18. PUT_LUH ; 
Op 0 €8 00215 BLBS STAT , 248" ; 
50 DD 00218 PUSH Status : 
7E 65 10 C1 OO21A ADDL3 #16, LIBSGL_LIBFDB, -(SP) : 
01 oD d0eiE PUSHL #1 ; 
5A DD 00 : PUSHL R10 ; 
64 04 FB 002 é CALLS #4, LIBSSIGNAL ; 
05 01 =A3 04 £1 00225 248: BBC #4; LIBSGL_CTLMSK+1, 25$ + 1360 
0000v CF 00 FB 00 A CALLS #0. LIB_REMOV > 1361 
05 63 06 €0 0022f 25$: BBS $. LIBSGL_CTLASK, 26$ + 1363 
11 04 Ad 03 £1 00233 BBC #3, LIBSGL- CTEMSKS4. 27$ + 1364 
01 DD 00238 26$: PUSHL #1 3 1367 
00006 CF or FB 00 3A CALLS #1, LIB_COMPRS_LIB ; 
6 DD 0023F PUSHL R6 + 1368 
69 01 FB 241 CALLS #1, LBRSSET_LOCATE ; 
0000v CF 00 FB 00244 CALLS #0, GETKEYSIZE + 1369 
05 A3 01 €1 00249 27$: BBC #1, LIBSGL_CTLMSK+1, 28% ; 1372 
00006 CF 00 FB 0024 CALLS #0. LIB_EXTRCT MODS : 137 
05 A3 04 €1 00 2 28$: BBC #4, LIBSGL_CTLASK+3, 29% ; 1374 
00006 CF 00 FB 00 CALLS #0, LIB CROSS OBJ + 1375 
05 A3 3 £1 00250 298: BBC #3. LIBSGL_CTCMSK+1, 30$ : 1376 
00006 CF 0 FB 00 62 CALLS #0. LIB_LIST LIB + 1377 
29 02. A3 4 €1 0 6 30$: BBC #4, LIBSGL_ CTLMSK+2, 32$ ; 1378 
6 DD C PUSHL R6 : 1382 
000000006 00 gi FB 00 $f CALLS #1, LBRSCLOSE ; 
52 0 00 00 OVL RO STATUS ; 
16 52 € 6 78 BLBS STATUS, 31$ ; 
67 g FB 00278 CALLS #0, LBRSRET_RMSSTV ; 
DD 00 43 PUSHL ; 
52 DD 0 8 PUSHL STATUS ; 
7E 65 10 1 2 ADDLS #16, LIBSGL_LIBFDB, -(SP) ; 
1 OD PUSHL ; 
00861050 8F DD PUSHL #8786000 ; 
64 5 FB F CALLS #5, LIBSSIGNAL ; 
02 «AS 10 BA 0029 318: BICB2 até, L 18861 _ CTLMSK+2 : 1383 
50 01 DO 00295 32$: #1,'R > 1385 


Sep-1 AX-11 Bliss-32 V4.0-74 Pa 2 
1$-s¢ 90071382 93:98:03 HMGran see ipaocnp:oaoe4 ae 4S 
04 00298 RET 3; 1386 
; Routine Size: 665 bytes, Routine Base: $CODE$ + 0000 


L16.6R CMD 


M5 
voe=000 1erSep-198e %9:98:09 EC Terans sme SeROchD: 


H 0 1387 1 ROUTINE getkeysize = 

3 1 ! rt; BEGIN 

: 3 § | 30 This routine gets the maximum keysize from the Library header 

; 335 1398 BIND 

3 3 $ ! 7 Libheader = .lbr$gl_control Clor$l_hdrptr] : BBLOCK; !Name the header 
: 338 1395 IF +} ibSet ctlmsk Clib$v_oldlib] 'If old format Library 

3; 339 1396 hey Libsal. keysize = Lib$c_shortsym 

3 a9 1332 ELSE 

; 3 1398 ; indexdesc = lLibheader + Lhd$c_idxdesc Pas + pie 'First index descriptor 
: a7 1709 Libsal. keysize = .indexdesc Cidd$w _keylen] - 1; 

: 345 1408 Sk RETURN true’ 

: 346 1403 2 

; 347 1404 1 END; !Of getkeysize 


0004 00000 Oeveeveree 


wo Save R2 
52 9000G CF 9E 0000 MOVAB taRset-tont Ize, R2 
50 000000006 00 DO 0000 MOVL  LBRS$GL =CON 
00006 CF 95 O000E TSTB = LIBS$GL=C ee ie 
05 18 00012 BGEQ =«dMi$ 
62 OF DO 00014 MOVL #15, LIBSGL_KEYSIZE 
OF 11 00017 BRB 2$ 
50 OA AO 00000004  8F C1 00019 1$ ADDL3 #196, 10(RO), RO 
62 02 ad 3C 00022 MOVZWL 2(ROS, LIBSGL_KEYSIZE 
62 07 Bn0¢8 DECL LIBS$GL KEVSITE 
50 01 DO 00028 2$ MOVL #1, RO” 
04 00028 RET 


; Routine Size: 44 bytes, Routine Base: S$CODE$ + 0299 


; 348 
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; 1387 
; 1393 


1395 
1396 


1399 
1400 


1402 
1404 
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Get the string descriptor for the filename correct 


ovove 
wt 


000 14-Sep-19 LIBRAR.SRCJPROCMD.832;1 (5) | 

3; 350 1406 1 GLOBAL ROUTINE Lib_create_lib (fdbadr, control, map_desc) = : 
; $2) 1407 BEGIN ; 
; 28 1408 ! ; 
; 3 1409 i This routine calls the Library access procedures : 
; 32¢ 1410 i to create the Library. ; 
; 55% 1411 i : 
; $28 1216 BUILTIN : 
. Sor 141 NULLPARAMETER; : 
; 308 1414 pe ‘ 
s 6339 1415 fdbadr : REF BBLOCK; ; 
; 360 1416 D : 
; 361 1417 namblk = fdbadr Cfdb$t_nam) : ‘ 
; 36¢ 141% fildesc = fdbadr Cfdb$T alt O BéLocK; : 
; 1419 LOCAL . 
> 364 1420 freee opts : BBLOCK [Ccre$c_length], | ; 
3 $0? 1? 1 status; ¢ 
; 367 14 : CHSFILL (0, cre$c_length, create_opts); !Zero erpete ° tions array ; 
; 368 1424 create “opts forest type] = .lLib$gl type gs tu e library type ‘ 
; 369 1425 create_opts (cre$l_keylen] = (IF .Ti sol cr creBt Lac s Clib$c_cpt_kszJ | ’ 
, ire 1426 3 THEN allks : 
; «Sri 1427 ELSE ‘tipsgt> “ascbint C.lib$gl_type]); !Set ASCII/binary flag ’ 
» Sve 1428 Lib$gl_keysize = .create opts Cere$l_ke extens? 'Set max key Tength of library | : 
: ore 1682 create_opts sresi alloc] = “TUbea allblks; : 
: «374 1430 2 create_opts Ccre$l_idxmax) = .Lib$al_numidx C. tibsat type]; !Set number of indices ; 
; 375 1431 2 create agers crest. ppenens = vAlgSah ner lon -Lib$Sgl-typeJ; !Set length of extra header info . 
: 376 1435 IF b16Sat seyret fe C lbr$c Et?- obj ; 
s srr 143 ctype EQL LErSc =tyP shstb : 
; 378 1434 THEN create opts Ccre$l_enta ie = .lib$Sgl_allgbls + .Lib$gl_allmods ; 
ore 1435 2 ELSE create_opts (Ccre$l—entall] = .Lib$gl—allmods; : 
; 380 1436 2 create_opts eres luhmax] = .Lib$gl_allhis; : 
3 Sel 1437 2 create_opts (cre$l-vertyp] = .lib$gl-allver; ' Library version format : 
; $88 \e38 2 create_opts Ccre$l_idxopt) = .Lib$al7idxopt C.lLib$gl_typeJ; ! index options : 
; ase 1279 $ of Dl NULLPARAMETER(3) ‘ 
3; «4386 1486 i Y ameas = \orte en (.control, fildesc, creat opt s : 
: HH 1ot7 2 a dbadr (fdb$l_de fext], .namblkcnans _r(f],0,0,.map_desc) : 
Ps * e 
; «64389 1445 i status = Lbr$open (.control, fildesc, create_o sets | : 
: 390 1446 fdbadr Cfdb$l_detext),.namblkCnam$l_r(fJ) | ; 
2 1448 Si : 
; ; 1449 : 
3 1450 if .nam mot Cnam$b_rst] NEQ 0 : 
; 395 1451 HEN BEG : 
3; 396 1236 tiidesc Fdscéu. Length) = .namblk Cnam$b_rsl); ; 
; ter 145 fildesc Cdsc$a_pointer) = .namblk Cnam$T_ rsal; 3 
; 398 1454 END : 
; 399 1455 ELSE IF a be Cnam$b_esl] NEQ 0 ; 
; 400 1038 THEN B : 
; ©6401 145 titdese Fdsc$w. Length] = .namblk Cnam$b_esl); 3 
; rt 1338 3 desc dsc$a_pointer]) = .namblk Cnam$T _esal; : 
3; 6404 1460 IF NOT ; , : 
3; 405 1461 THEN S s1GnAL | Stop (Lib$_openout, 1, fildesc, .status, lbr$ret_rmsstv() 3); : 
; 406 1462 RETURN . 
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AX=11 Bliss-32 V4.0-742 


:14 7 
:09 LIBRAR. SRCIPROCMD B32: 1 


LS ss fall 1B, Save R2,R3,R4,R5,R6,R7,R8 


#16. FDBADR, R 
#0, (SP), #6, #80, CREATE_OPTS 


LIBSGL_TYPE, RO 

RO, CREATE_OPTS 

#3. LIBSGL~CREBFLAGS, 1$ 
1B$GL_ALLRSZ, R1 


LIBSGL— EA 8 
LIBSAL NUMIDXERO CREATE OPTS+12 


GL_ALLMODS, LIBSGL_ALLGBLS, - 
TE-OPTS+#20 


$ 

A 

SGL_ALLMODS, CREATE_OPTS+20 
$GL-ALLHIS, CREATE_OPTS+24 
GL7ALLVER, CREATE-OPTS+28 
SAL~IDXOPTCROJ, CREATE_OPTS+32 
FDBADR, RO 


ua 

“oOo 
m 
mn” 
oO 


—-Iz 
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awv 
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‘es 


R 
CREATE_OPTS 
R7 

CONTROL 

#8, LBRSOPEN 
16(R6) 
CREATE_OPTS 
R7 

CONTROL 

#5, LBRSOPEN 
RO. STATUS 
3(R6) 
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260 bytes, Routine Base: S$CODE$ + 02C5 


; Routine Size: 


D 6 
16-Sep- AX-11 Bliss-32 V4.0-742 Pp 17 Lil 
1a-Sep- 198 5: 93:8 :09 LIBRAR.SRCJPROCMD.B32;1 eae (6) v0 


4 ROUTINE Lib_delete_mods = 

¢ BEGIN 

4 ; This routine deletes modules from the library 
LOC 


AL 
modnb : REF BBLOCK, 


status, 
modesc : BBLOCK Cdsc$c_s_bin); 

BUILTIN 
REMQUE ; 

ie By REMQUE (.Lib$gl_delmodl, modnb) !get next module to delete 
modesc Cdsc$w_length] = .modnb dee ry namlngJ; 'Set up name descriptor 
modesc Cdsc$a_pointer] = modnb Clnb$t_name); 


i Check for wild cards in name. 
IF NOT CHSFAIL (CHSFIND_CH (.modnb Cinbsb mening). modnb Clnb$t_name], 
OR NOT CHSFAIL (CHSFIND_CH aes gti reteenpelnes. modnb Clnb$t_name], 
‘® 


THEN BEGIN 
IF (status = Lbr$get_index re Libetl, Lib$Sgl_modnamix, 
eT_mod, modesc))EQL Lbr$ *nomtchfou 
THEN SIGNAL a choatchfou. le | modesc) 
ELSE IF — sta 
THEN SIGNAL (LibS_indexerr, 1, t JoSet. Libfdb Cfdb$l_namdesc], 
.status, [br$ret_rmsstv() ); 


END 
ELSE (.Lib$Sal_ deldspat C. ch yo typed) (modesc); ‘Delete the module 
Lib_free_mem (inb$c_fixedsize+.modnb Elnb$b_naming], .modnb); !Deallocate the block 


IM —OODONAVES WN" OOODNOUES WN -O”9 
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Ww 
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Seal el al Dale el el Sel Dek al Dal el Del Del tel Det tek de dee ee lat ee ee eee ee et et a et et 


woowvowovnowovnowvowdo 
OONAMES WN 9 OODNOAUE WN 0 DOONAN EWN OO ONOUSE 


~NINAAS BEL EEN AWANAIIInonononononononononon 


END; 
RETURN true 
END; 
001C 00000 LIB_DELETE POOS: | 
54 000000006 9E 0000 met LSS TGNAL: Re Tana 
SE 88 5 itd CUBE ek : 
52 0000G DF OF 0000C 1$: REMQUE 3 fBscL _DELMODL, MODNB 5 1476. 
03 1¢ 00011 BVC 2$ ; 
0090 31 90013 BRW 9$ : : 
6€ 09 A2 9B 00016 2$ MOVZBW 9(MODNB), MODESC : 1478 | : 
04 AE OA A2 9E O01 MOVAB 10(M RODNGS MODESC+4 7 1479. 
50 9 A 2, OO1F MOVZBL 9(MOD R > 1483 
OA A2 50 A 000 ; occ #37, RO. *10(MODNB) : 
é 12 000 BNEQ 3$ ; 
D4 0 A CLRL RI : 
51 D8 C 3$ TSTL = RI : 14864 | 
11 12 000 f BNEQ 5$ : | 
50 09 A2 9A 000 MOVZBL 9(MODNB), RO : 1485. 


— 


6 } 

LIB_PROCMD 1b-se -1984 92:03:14 AX-11 Bliss-32 V4.0-74 Page 18 
v04=000 a aett 1 95:93:09 YMTBRAR SRe PROCMB 63064 . (6) 

OA A2 50 A 34 00 Locc #2, RO, 10(MODNB) : 

¢ bf 6 B CLAL R1 : 

1 D3 D 4$: TSTL R1 + 1486. 

1 13 0003F BEQL 7$ : 

E DD 0 41 5$: PUSHL SP : 1488) 

OOOOv CF 9F 00043 PUSHAB ADD_DEL : | 
0000G CF 9F R006? PUSHAB LIBSGL_MODNAMIX : 

0000G CF 9F 48 PUSHAB LIBSGL-LI : | 
000000006 99 04 FB 9004 CALLS #4, LBRSGET_INDEX : 

9 DO 00056 MOVL RO, STATU : | 

L US, #LBRS_NOMTCHF OU : | 

000000006 8&F 33 D4 0 39 CMPL STAT S, #LBRS_NOMTCHFO 1489 
5E DD 00062 PUSHL SP > 1490. 

01 DD 00064 PUSHL #1 : | 
000000006 8F DD 00066 PUSHL #LIB$_NOMTCHFOU ; 
64 03 FB 0006C CALLS #3, LIBS$SIGNAL : 
1 11 0006F BRB $ : 

2 53 £8 00071 68: BLBS STATUS, 8$ + 1491 
000000006 00 99 FB 90074 CALLS #0, LBRSRET_RMSSTV + 1493. 
38 DD 90070 PUSHL STATUS : | 
7E 00006 CF 19 ci 0007F ADDLS #16, LIBSGL_LIBFDB, -(SP) ; 1492 | 
000000006 8F oD 00087 PUSHL #188 INDEXERR ; | 
64 05 FB 0008D CALLS #5, LIBSSIGNAL 3 
10 11 00090 BRB : 1483) 

50 0000G CF DO 90092 7$: MOVL LIBSGL_TYPE, RO + 1495 
50 00006CF 40 b0 90097 MOV LIBSAL-DELDSPATCROJ. RO : 
60 01 FB 0009F CALLS #1, (RO) ; 
52 DD OQOOA2 8$: USHL MOD 3 1496 | 
7E 09 A2 9A OO0A4 MOVZBL 9(MODNB), -(SP) : 
6E OA CO O00A8 ADDL2 #10, (S : 
00006 CF 08 FB OOOAB CALLS #2, LIB_FREE_MEM ; 
FF5S9 «31 4s BRW 1$ 3 1476) 
50 01 b0 00083 9$ MOVL #1, RO + 1498 | 
4 00086 ET : 1499 


; Routine Size: 183 bytes, Routine Base: S$CODES + 03C9 


: 445 1500 1 ROUTINE add_del_mod (modesc) = 

; o 133) BEGIN 

; 448 1803 ! This routine is called by lbr$get_index when looking for module names to delete 
; 449 1504 ! The name is inserted into the List of modules to delete 
; 450 1505 : 

3 (451 1506 

; 45 1507 modesc : REF BBLOCK; 

3; 4 1508 

3 454 1509 LOCAL 

; «455 1510 nambik : REF BBLOCK; 

3 45 1511 

3 45 1318 BUILTIN 

; 458 151 INSQUE ; 

; 459 1514 


LIB_PROCMD 
v04=000 


: 46 


; Routine Size: 


OA Al 


49 bytes, 


5 

CHSM 

: RETURN tra 
0 END; 


er tors (Lib pe 
(.namB(k,~ 
coabth tines b _nami i 
smodesc 


00006 
00006 


09 
04 


Routine Base: 


16-00-1984 4 96: 93:18 AX=-11 Oh fegete V4.0-74 


LIBRAR.SRCJPROCMD.B32; 


et at) finoss ab 2 if. + .modesc Cdsc$w_length], namblk)); 


“ 
mn 


Wid ww SOON 
Co—-O—"PpmMm 


nO: length 


\_deTmod 
pnodess lascou. len th): 
, «modesc Cdsc$a_pointer], namblk Clnb$t_name)); 


!0f add_del_mod 


003C 00000 ADD_DEL_MOD: 
oW RD 


0 Save R2,R3,R4,R5 
4 C2 0000 SUBL2 #4, SP 
E BD 000 PUSHL § 
04 BC 3¢ 00007 MOVZWL @MODESC, -(SP) 
0A CO 00008 ADDL2. #10, (SP) 
0 FB 00005 CALLS te. LIB_GET_MEM 
5 : 0001 BLBC  STATUS,"1 
00 BE : 00016 INSQUE SNAROLK, @L 1BSGL_DELMODL +4 
6E DO 000iC MOVL NAMBLK, R1 
04 AC DO 0001F MOVL  MODESC, RO 
60 90 00023 MOVB (RO), 9(R1) 
60 28 00027 MOVC3 (RO). a4(RO), 10(R1) 
01 D0 90020 MOVL , 
04 00030 1$ RET 


SCODES + 0480 


ref 


rc 
— 
m 


Lie PROCMD 


6 
1B-seo-1984 02:08:34 YAR=I1 BLieg-52 440-74 Page 20 


O1FC 00000 L1B_REMOVE Syms: | 


part. R7,R8 1521 | 


; 467 1521 1 ROUTINE Lib_remove_syms = : 
; tos ! ¢ geein : 
5 rth : : This routine removes global symbols from object iibraries ; 
3; 47 1 8 LOCAL ; 
; 47 1 sta : 
3 474 1528 amt REF BBLO ; 
: 475 1529 symdesc : BBLOCK “Pheste.. s_bln]; ; 
; «476 1 0 3 
: 477 1531 BUILTIN 3 
3; 47 1 ¢ REMQUE; 3 
: 47 1 ; 
; 480 1534 IF +L ibSat 7hyee NEQ Lbr$c typ.ob | ; 
; 481 1535 bSgl_type NEQ Tbrsc oR shstb | ; 
; 48 15 $ THEN. BE 3 
; 48 15 STGNAL (Libs anotobi\ ib. | . LibSgl_lLibfdb Cfdb$l_namdesc)); 3 
> 484 1538 RETURN Lib$_notobjlib; : 
; 4485 1539 END; 3 
; 486 1540 3 
; 487 P 1541 perform ttecSeet. index bh ¢ L_libctl, Lipset warendi ai. 'set index to delete global syms ; 
; 488 136g LibS_indexerr, 1, Lib$gl_lLibfdb Cfdb$T_namdesc) F : 
3 ret to og By BP RQUE he iLibsgl_ objaeeat. symnb) 'get next module to delete : 
; 491 1545 symdesc ne Length) = “syenb Lnb$b =nenlngl; 'Set up name descriptor | : 
: 49 1546 syedese inter) = symnb Clnb$t—n : 
; oa? ot NOT CHSFAIL™ RCHSF IND. CH %} 7 iE, ADSb_ naming], symnb Clnb$t_name], : 
; 495 1549 OR NOT CHSFAIL (CHEF IND CH severe, t LnbSb_namingl. symnb Clnb$t_namel, ; 
: 496 1550 3 ZASCII ‘#' : 
: 497 1551 4 THEN BEGIN | ; 
; 498 1326 5 IF (status = Lorsget. index (Lib$Sgl_libctl, Lib$Sgl_objgsdix, 3 
; 499 1553 4 rem_sym, syndesc) 5 EQL [br$_nomtchfou 3 
; 500 1554 4 THEN SIGNAL (Libs anoatchitou, | » symdesc) 3 
; $01 1555 4 ELSE IF NOT .st F 
3 ane 1556 4 THEN SIGNAL. (Libs. indexerr, 1, LibSgl_ pare Cfdb$l_namdesc], 3 
; 30 1557 4 .Status, lbr$ret_rmsstv()~ : 
: 504 1558 4 END | 3 
; 505 1559 4 ELSE BEGIN : 
; 506 1560 5 IF (status = Lbr$delete key (Lib$Sgl_libctl, symdesc)) ‘Delete the symbol 3 
; 507 1561 4 THEN Lib_log_op (LiB$ removed, Symdesc, .Lib$gl_lLibfdb) ‘log if logging 3 
3 208 1366 4 ne: ELSE SIGNAL TlLib$_delkeyerr, 2, symdesc, Libsgla Libfdb Cfdb$t "nendeec he .Status); | : 
3 219 1208 ; Lib. freemen (Lnb$c_fixedsize+.symnb Clnb$b_naming], .symnb); !Deallocate the block : 
3 21§ 1566 2 RETURN true F 
s 35% 1567 1 END; : 


2a 


Sav 
gi a if 
F pO OOO0E MOVL al 


H 6 
LIB_PROCMD 16-Sep-1984 02:03:14 AX-11 Bliss-32 V4.0-74 Page 21 
ves 18-808- 1 3b 95:93:09 LIBRAR.SRCJPROCMD.B32; . (3) 
5 G CF 9E 00015 MOVAB LIBSGL_LIBFDB, R5 ; ; 
56 oov0sooeg 69 3 ol; MOVAB LIBSSIGNAL., ri : : 
E C 1 SUBL2 #8, SP : | : 
01 00006 cr bY 0 4 CPL ASGL_TYPE, #1 + 1534 : 
05 00006 cf p4 0 CPL IBSGL_TYPE, #5 + 1535 : 
7E 65 10 ci 0 ADDL3 #16, LIBSGL_LIBFDB, -(SP) + 1537. ; 
Qi DD 6 PUSHL #1 : | 
$ DD 000 PUSHL RS : 
64 : FB 003A CALLS #3, LIBSSIGNAL : | 
50 4 00 : MOVL 6, RO + 1538. 
4 0004 RET : 
00006 ct F 00041 1$: PUSHAB LIB$GL_OBJGSDIX + 1542 
000000006 00 0 FB 0047 CALLS #2, LBRSSET_INDEX ; 
OD 50 €8 OO04E BLBS STATUS, 2$ : | 
50 0D 00051 PUSHL STATUS ; | 
7E 65 10 C1 00055 ADDL3 #16, LIBSGL_LIBFDB, -(SP) : | 
g4 DD 00057 PUSHL #1 : | 
7 DD 00059 PUSHL : | 
64 04 FB 00038 CALLS #4, LIBSSIGNAL ; 
52 00006 DF OF O005E 2$: REMQUE @LIBS$GL_OBJSYRML, SYMNB + 1543. 
03 1C 0006 BVC 5 ; 
0089 31 00065 BRW 12$ : 
6E 09 A2 9B 90068 3$: MOVZBW 9(SYMNB), SYMDESC > 1545) 
04 AE OA A2 9E 0006C MOV 10(SYMNBS, SYMDESC+4 : 1546. 
50 09 A2 9A 00071 MOVZBL 9(SYMNB), R + 1547. 
OA A2 3a 00075 LOCC #37, RO, 10(SYMNB) : | 
2 12 th BNEQ 4$ 3 | 
1 04 0007¢ CLRL = R21 ; | 
51 DS 9007 4$: TSTL = R11 : 1548) 
11 12 0008 NEQ 6$ ; 
50 09 A2 9A 0008 MOVZBL 9(SYMNB), RO : 1549 | 
OA A2 50 2A 3a 00086 LOCC #42, RO, 10(SYMNB) ; 
2 12 00088 BNEQ 5$ ; 
51 04 0008D CLRL sR ; 
51 D3 OOO8F 5$: TSTL = R11 ; 1550 | 
46 13 00091 BEQL «BS ; | 
5E DD 0093 6$: PUSHL SP > 1552 
0000v CF 9F 0009 PUSHAB ADD_REM_SYM ; 
00006 cf oF 9-44 PUSHAB LIBSGL_OBJGSDIX ; 
8 DD 0009D PUSHL : | 
000000006 9 FB O09F CALLS a4, LBRSGET_ INDEX | 
000000006 8F 3 Dt OOA CMPL STATUS, #LBR$_NOMTCHFOU ; 15953 | 
cE DD 0008 PUSHL SP > 1554) 
DD 0B4 PUSHL #1 g 
000000006 8F DD 00086 PUSHL #LIB$_NOMTCHFOU ; 
64 3 re BC CALLS #3, LIBSSIGNAL 3 | 
se BF BRB 11$ : | 
4C 53 €8 000C1 7$: BLBS STATUS, 11$ : 1555. 
000000006 00 FB Ch CALLS #0, LBRSRET_RMSSTV 3 1557 | 
DD 000CD PUSHL STATUS ; 
7E 65 10 C1 CF ADDLS #16, LIBSGL_LIBFDB, -(SP) : 1556. 


LJO-PROCHD 18-Sep-1984 4 6: 93:16 AX-11 Bliss-32 V4.0-7 Page (3% 


ge et nen {\nbts Winegst? + .modesc Cdsc$w_length], namblk)); 
NSQUE (.namblk, b$gl_ ob]syra) : 

namolk Cinb$b yoy ~mod one tasesu: Lengt 

CHSMOVE (.modésc [dsc$w length 


+ »modesc HEH pointer], namblk Clnb$t_name]); 
coo true 


14-Sep-1984 LIBRAR.SRCJPROCMD. B3oe ) 
1 DD Dd PUSHL #1 ; 
7 OD D PUSHL R7 : 
4100 BF BB 00009 8S: —-PUSHR #AACRB_ SP> ; 1560 
000000006 99 F DD CALLS 2, LBRSDELETE_KEY ; | 
D BES MOVL RO, STATUS 3 
E £7 BLBC STATUS, 9$ : 
6 pp pea PUSHL LIBS$GL_LIBFDB 3 1561 
04 AE OF EC PUSHAB s est 3 
000000006 er DD OEF PUSHL #L16$ wg ; 
0000v CF 3 8 OF5 CALLS LTB_L : 
14 1 OFA BRB 118 : 
53 DD FC 9$: PUSH STATUS 3; 1562. 
7E 65 10 C1 OOOF ADDL #16, LIBSGL_LIBFDB, -(SP) 2 
08 AE oF 9010 PUSHAB SyMDESC ; 
8 DD 0010 PUSHL é 
000000006 8F oD 90107 PUSHL sinh DELKEYERR ; 
64 93 FB 0010D 10$: CALLS TB$SIGNAL 3 
§ DD 00110 11$: PUSHL SYM : 1564. 
7E 09 <A2 9A Bal ig MOVZBL 9(SYMNB), =(SP) 3 
6E OA CO 00116 DDL2 #10, (SPS : 7 
0000G CF f FB 00119 CALLS #2, LIB_FREE_MEM 3 
FF3D 31 OOTIE BRW 2$ 3 1543) 
50 01 00 tH 12$: MOVL #1, RO 3: 1566) 3 
04 00124 RET : 1567 | : 
; Routine Size: 293 bytes, Routine Base: $CODE$ + 0481 : 
: 514 1568 1! 
s SS 1569 1 ROUTINE add_rem_sym (modesc) = 
: 318 137) 5 BEGIN | 
>; «518 1376 ! This routine is called by lbr$get_index when tock ing fe for symbols to delete. 
; 519 157 ! The name is inserted into the list of symbols to delet | 
; 520 1574 2! 
3 2s! 1575 MAP 
os § 1378 modesc : REF BBLOCK; 
: 2$ 157 
; 524 1578 2 LOCAL | if 
s $25 1579 namblk : REF BBLOCK; | 
; 526 1580 
i 355 1382 5 eet NSoue 
; 529 1883 
; 5350 1584 erform (lib 
, 3 1585 
3; 35 1388 
3; 3 158 
; 2 1588 
3 1589 


'Of add_rem_sym 


003C 00000 ADD_REM_SYM: 


L1B_PROCMD 
VOe=000 


; Routine Size: 


49 bytes, 


-—O—-">p TMM 


09 
04 


o 

o 

o 

o 

a 
ViIruUwmng—$F8n Vi 
oo m 


Routine Base: 


1b. ~$00-1984 96: Q3: 8 AX=11 Bliss-32 V4.0-74 Page ai 


-Sep-19 LIBRAR.SRCJPROCMD.B32; ) 
.WORD Save R2,R3,R4,R5 : 1569 
4 C2 0 SUBL2 #4, SP : 
E bo PUSHL § + 1584 
04 Bc ¢ MOVZWL @MODESC, -(SP) : 
A CO 00008 ADDL2 : 
2 FB 0 OF CALLS #2, LIB_GET_MEM ; 
: 001 BLBC _—« STATUS, : 
00 BE : 0016 INSQUE @NAMBLK, @LIBSGL_OBJSYRML+4 + 1585 
6E 00 0001C VL NAMBLK, R1 + 1586 
04 AC dO OO01F MOVL MODESC RO : 
60 90 000 3 MOVB. (RO), 9(R : 
0 2 00 MOVC3 (RO) 4 10(R1) + 1587 
1 00 0002D MOVL #1, RO + 1588 
04 00030 1$ RET + 1589 


SCODES + 0506 


K 6 
1ec$p-198¢ 18:98:09 EO TerarssneSpRocnp:030;1 Page of 


; 7 1590 1 ROUTINE Lib_insert_mods = 

; : ! 4! pesin 

; 540 1388 i This routine inserts modules into the Library 

; «541 1594 

3 otg 1595 WHILE ‘nee input_fil 

3; 36 1596 DO ( bSel “{npdépat c‘ Libsgl. type]) (); 'Insert each into the Library 
: 3s 1398 peru 


0000 00000 LIB_INSERT_MODS: 
WORD 


WO Save ¢ nothing 3: 1590 
00006 CF 00 FB 00002 18 CALLS #0, NEXT_INPUT_FILE : 1595 
10 0 €9 00007 BLBC j 
50 0000G CF DO OOODA MOVL LIBSGL_TYPE, RO 3 1596 
50 QOOOGCF40 DO OOOOF MOVL LIBSAL_INPDSPATCROJ, RO 3 
60 00 FB 00015 CALLS 0, (RO) 3 
E8 11 00018 Ba 1$ 3 
50 01 DO OOO1A 2$ MOVL #1, RO 3; 1597 
04 0001D RET ; 1598 


; Routine Size: 30 bytes, Routine Base: S$CODE$ + 0607 


i 


LJB_PROCMD Ib-5e Sep-1 AX-11 Bliss-32 V4.0-74 Page 25 
iee=o 0 Sep-1 38 95: 93: 43 LIBRAR.SR ReTPROCMD Ba5e4 ° 8 
s S47? 1599 SL OBA L ROUTINE Lib_log_op (opercode, modesc, lLibfdb) = 
EE Tgp gee oo 
3 29 19 ¢ This routine logs the operation on the console if /LOG was specified. | 
; 26 JOR MAP 
H 5 1605 Libfdb : REF BBLOCK, 
> $54 1908 modesc : REF BBLOCK; 
s 355 160 
; 28 1608 
ee 1609 IF , \ibSat ck ctlmsk Clib$v_log] 49 ogging? | 
; 558 1610 2 THEN SIGNAL (.opercode, 2, .modesc, Libfdb [fdb$l_namdesc]); 
; 559 1611 RETURN true 
; 560 1612 1 END; 
| 
0000 00000 ENTRY Lj8 G_OP, Save ngthiog 3; 1599 
14 0000G CF 06 €1 00002 BBC “tiesct ab: Hak : 1609 
7E 0c AC 10 ¢1 00008 ADDL3 at , (SP) : 1610 
08 AC DD 0000D PUSHL  MODESC ; 
02 DD 00010 PUSHL WD 5 
04 AC DD 00012 PUSHL OPERC : 
000000006 00 04 FB 00015 CALLS 8&4, 1B$S1GNAL 3 
50 01 DO OOOIC 1$ MOVL ts RO 3; 1611 
04 0001F RET : 1612 


; Routine Size: 32 bytes, Routine Base: $CODE$ + 0625 


vat 4 Nile 


Pe alealealvalealeal 
AAPA AO 


COD DWmOWON NNN NNO 
SODNAUE WN OO OODNOULSWN —OODNOUS wr 


Abb db Ab hh Ab Ah Ab ab db dh Ah dh Ab hh dh dh ah Ab dh dh a 


<Oco 0000 


3; Routine Size: 


i a kk kk kt tt th th th 
PRRAEXAXAA AAA AAA AAAS AAA AAAS A A OOOO 


FE WWAAI NWI NWA AAIPPPNNPINONPNPNP 2 SS SO 
=O DONA MUE WN $0 OOO EWN OOONOUE WW 


OA 


60 by 


16 sc -1984 0 AX-11 Bliss-32 V4. Os eee 
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SL 990 ROUTINE Lib_log_upd ( operation, module_desc ) = 

lee¢ 

i 
If a library upeate history is maintained for the library, 
i 


build a List of the module names of modules that have been 
updated in Library. 


IF .LibSgl.ctlmsk Clib$v_recordluh) 
THEN 


BEGIN 
LOCAL 
namblk : REF BBLOCK; 


ortere. (Lib get. at) (Lnb$c_fixedsize ¢ -module_desc Cdsc$w_length], namblk) ); 
Bik, Ai bSgl -odupdl C1] ) 
namblk tinbsb naming] = .module_desc Lect length]; 
CHSMOVE(. nodute desc Cdsc$w length], .modulé_desc Cdsc$a pointer], 

Finbst t_name] ); 
namb Lk Cinb$b- flags = .,operation; 
7h an true; 


1 
—_ 
MAP 
module_desc : REF BBLOCK Cdsc$c_s_bln]; 
BUILTIN 
INSQUE; 
3 
3 
3 
3 
3 
3 
3 
5 
1 ! global routine Lib_log_upd 


007¢ 00000 .ENTRY LIB_LOG_UPD, Save R2,R3,R4,R5,R6 
SE 04 C2 0000¢ SUBL2 #4, SP 
2D 00006 CF 06 a 60005 BBC #6, LIBSGL_CTLMSK+3, 1 
7E 08 BC BP 000D MOVZWL ahoDULe DESC, -(SP) 
6E A (C0 00011 ADDL2 
00006 CF ; FB 0014 CALLS We L1B_ ET _MEM 
1F E 0019 LBC —sST 
00006 y 00 BE 3 O01¢ INSGUE QNARBLK, gat 18sct_ MODUPDL+4 
0 08 AC p 00 j MOVL MODULE DESC, RO 
09 Ab 60 90 00029 MOVE (RO), 9(R6) 
Ab 04 80 60 38 00 p MOVC3 (RO). a4(RO), 10(R6) 
08 Ab 046 ac 90 900 OVB OPERATION, 8(R6) 
50 01 DO 00038 1$: MOVL #1, RO 
04 00038 2$: RET 


tes, Routine Base: S$CODE$ + 0645 


Page 26) 
° 188 


L 
V 


NOT .Lib$gl_ctlmsk Clib$v_recordluh] ! quit if history not maintained 


ee 
z=" 


EN RETURN rue; 


N 6 
ey 16-Sep AX-11 Bliss-32 V4.0-74 Page 27. 
4=000 1er8ee7 138s 93:98:03 Haran SReSprocmo B32, 9495, 
:) 4 ROUTINE Lib_put_luh ( opercode ) = | 
538 4 BEGIN 
94 4 l4+4 
595 4 ! 
596 4 { Build the Library update history records and put them into 
597 4 ! the history. 
598 4 { 
599 4 lee 
600 5 ELD ! define a descriptor for $GETJPI 
601 5 itmlst flds = 
$05 2 set bufl 0,16,0) 
_usrnam_buflen = (0, 
604 5 +h usrnam_cod = 8°94 14,04, 
605 5 pi_usrnam_bufadr = £1.0,82,6], | 
606 5 pi_ usrnam_ “Len = g-0+8 OJ, 
607 5 pi-en = (3,0,32,0] 
608 5 S; 
609 5 LOCAL | 
1 6 status, 
1 6 modnb : REF BBLOCK ! entry in Linked List of module names 
1 6 mod_desc : hee Cascse _s_binj, 
1 6 Luhfec : BBLOCK Cdsc$c_s~bTn 1, ! Library update pistory record being built 
1 6 itmlst : BLOCK at “LONG FIELD’ (itmlst_flds), | descriptor for $GET 
1 6 iosb : VECTO ! status block for $GETJPI 
1 6 usrnamlen : WOR D, 
' ? ag ernenbut : BLOCK a eeneti 
1 6 luhlen = luhrec Cdsc$w_length]; 
2 7 LTIN 
2 7 REMQUE ; 
2 7 
2 ” 
2 
2 
2 
2 


PAEARALAXAAAAAA AAAS AAAA AAA AAAS 
AUIS WN OO OODNOUES WN OO OONOUSWN—O 


Re Oe Se Be Be Be Be Se Ge Be SH He Se Se Se HSH Se Se Se Se Se Se Se Se Se Se Se Se Se Se SH Se Se we SH Se Be Se Se Se ae Se Se Se Se eens 


hLabububububububmibabububububabububububb—ububububuimiuiviubuiabuiubububuabubababubababuhabub mba aabatiati aad ait 
DEXA AAA AAA ADAP ADA AAA AAA DP PA AA AAA AA AAA AAA AAA AAA AAA OA OOOO anor 
DNA FW OOOO EWN 0 OONOA UE WN 0 ODO EWN @ O DONO EWN OOONOUS wir 


Bie Be Be Be Oe Be Be Be Oe Be Se Se SH Se Be Be Se Se Ge Se Be Ge Ge Ge FH Se Ge Ge Ge BF Ge Se Oe Ge Se Be Ge BESET SESS Se Se Se Se Seas Se Se Seas te SseSsessas 


7 
7 
7 1 
7 ! initialize descriptor for $GETJPI 
§ which will return USERNAME of the process modifying Library 
3 8 itmlst pi_usrnam_cod) =_jpi$_username; 
3 8 itmist Cjpi_usrnam_ ~bufien = 12; 
3 8 itmist Cjpi_usrnam_buf adr] = usrnambuf; 
3 8 jtaist the uerpen, apend * usrnamlen; 
3 8 staiss pire = ; 
3 8 atus = cet yp Pl lefact, iosb=iosb, itmlst= itmlst); ! Colt GET Job Process Information 
637 8 SUAITER (EFN=1); ! set event flag wa 
638 8 IF NOT -JosbC0] THEN RETURN .iosb(0); ' check if an error 
o7) : pectere (Lib_get_mem (Lbr$c _maxrecsiz, luhrec Cdsc$a pointer] )); ! get the space for the LUH record 
641 ] 
64 9 catundl : VECTOR (C2,LONG), ' save module names from different operations 
poh . restore; i remember that module names have been saved 
645 9 ND 
oe , luhrecbuf = .luhrec Cdsc$a_pointer] : BBLOCK; 
648 9 restore = false; 


8 B | 
zs é B 
wg.tnge IECSESHBEL ORGECIS UMSACSSRRBCR: ESET Pegg) 


> 649 1699 aotuedt boy 5 nog dt 

; 650 1 6 posure = modu 
; 651 1701 CHSFL in (0, lbor$c Maoxtecst luhrecbuf); ! fill it with nulls 
3 $26 1706 Luhrecbuf CElhe$b _usrnamlen “= Jusrnamlen | 
3; & 170 HSMOV usrnamlen, usrnambuf, lubrecut Clhe$t_usrnam]); ! copy username into LUH record 
3 $28 1788 luhrecbuf tiheSb -modcode] = .opercode; ! record what kind of operation was performed with these mod 
; 656 1706 ; get the date and time 

; 657 1707 ' 

; 658 1708 SGETTIM (TIMADR = luhrecbuf Clhe$l_time]); 

; 659 1709 Luhlen = Lhe$c fixedsize; 

3 ree rid Luhrecbuf ClheSw_modcnt] = 0; ! Tally of module names in record 

; 66 at copy over module names 
; 66 171 ‘ 
3 +e: yar ; WHILE NOT REMQUE (.Lib$Sgl_modupdl, modnb) DO 

; 666 1716 4 IF_.modnb Clnb$b_flags] EQL .opercode 

: 667 1717 4 THEN 

; 668 1718 5 N 

; 669 1719 5 IF_.luhlen + .modnb Clnb$b_naming] + 1 GTR Lbr$c_maxrecsiz ! Would next modulename make record | 
; 670 1720 5 ! then put what we've got and then b) 
: 671 1721 6 BEGIN ‘ 

: 672 ree 6 status = lbr$put_history (Lib$gl_libctl, luhrec); ! copy the record into the List of h) 
3; 673 1723 6 IF NOT .status 
; 674 1724 6 THEN 

s 679 hes Bee BEGIN ! If there's been an error, deallocate wes, gf and quit 

: 676 1726 7 Lib_free_mem ( lbr$c_maxrecsiz, .luhrec Cdsc$a_pointer] 
; 677 Svar. CO RETORN .Status; 

; 678 1728 6 : . 
; 679 1729 6 Luhlen = lhe$c_fixedsize; ! header for continuation record is the same 
3 ony ge! g Luhrecbuf CliheSw_modcnt] = 0; ! except for module count which is reset to 0 
; 68 1732 6 BEGIN 
; 68 1733 6 BIND | 
3: 684 1734 6 modnamlen = luhrecbuf + .luhlen : BYTE; 

3 or? ire? g podnanlen = .modnb Clinb$b_naming]; 
3; 687 lec ae) i = ,luhlen ' Allow 1 byte to store module name | 
; 688 1738 5§ CHSMOVE (.modnb "chnbés -namingl, modnb Clnb$t_name], i copy in module name 
: 689 1739 5 luhrecbuf + .Lluhlen); 
; 690 1740 5 luhrecbuf Clhe$w “modcnt)_ = ,luhrecbuf Cthe$w _modcnt] + 1; ! Tally module names in record 
; 691 1741 5 Luhlen = .luhlen "+ .modnb Cinb$b naming); 

; $3 Hk ? END ! if the module name"matches the operation being logged 

3 6946 1744 5 EGIN 

; 695 1745 § INSQUE ( .modnb, .modupdl [1] ); ' save module name 

; 696 1746 5 restore = true; 

; 697 1747 4 ND; ; 

; 698 1748 END; ! while 

; 699 1749 

; 700 1750 IF .restore 

; 701 1751 THEN 

: 70 1736 WHILE NOT REMQUE : modupd modnb) oP 

; 203 1733 INSQUE (.modnb, .Li BSot. modupdl [1] ); 

3 705 1755 IF .luhrecbuf Clhe$Sw_modcnt] GTR 0 


| Cc 7 
LIB. PROCMD 16-Sep-1984 02:03:14  VAX=11 Bliss-32 v4.0-76 ° 9 
VOe=000 1onseei18Re 98: 8a:hg | NEAR tae SpRacho o3ec% age 443 


; 706 1796 ; THEN . : 

; 17 status = lbrSput_history ( Lib$gl_libctl, luhrec); ! out of module names so put what we've got 
: $09 1785 _ 

; 710 1760 Lib_free_mem ( Lbr$c_maxrecsiz, .luhrec Cdsc$a_pointer] ); ! return memory 

: 711 1761 RETORN .Status; 

: 712 1762 1 EN ' routine Lib_put_luh 

> INFO#250 1:17 


; Referenced LOCAL symbol USRNAMLEN is probably not initialized 


-EXTRN SYSS$GETJPI, SYSSWAITFR 
~EXTRN SYSSGETTIM 
O7FC 00000 LIB_PUT_LUH: | 
“WORD Save R2,R3,R4,R5,R6,R7,RB.RI.RI0 > 1642 
5A 000000006 00 9€ 00002 MOVAB LBRSPUT_HISTORY, R10 : | 
SE co AE 9E 00009 MOVAB -64(SP), SP : 
04 00006 CF 06 £0 0000D BBS #6, LIBSGL_CTLMSK+3, 1$ + 1674) 
50 01 DO 00013 MOVL #1. RO > 1675. 
04 00016 RET : | 
20 AE 0202000C 8F DO 00017 1$ MOVL  #33685516, ITMLST > 1682. 
24 AE OC AE 9E O001F MOVAB USRNAMBUF. ITMLST+4 : 1683. 
28 =OAE 6E 9E 00024 MOVAB USRNAMLEN, ITMLST+8 > 1684 
2c AE OG 00 8 CLRL  ITMLST#12 : 1685. 
7E C 0002B CLRQ -(SP) : 1686. 
20 AE 9F 0002D PUSHAB 10SB ; | 
2c «AE OOF 90030 PUSHAB ITMLST : 
7E 7C 00033 CLRQ -(SP) : 
01 oD 00035 PUSHL #1 : | 
000000006 00 07 FB 00037 CALLS #7, SYSSGETJPI ; | 
59 50 D0 0003€ MOVL RO. STATUS : 
01 DD 00041 PUSHL #1 > 1687) 
000000006 00 01 FB 00043 CALLS #1, SYSSWAITFR : | 
05 18 AE EB OO04A BLBS 1058, 2$ : 1688 
50 18 AE DO 0004 MOVL  I0SB, RO : 
04 0005 RET : 
34 AE 9F 00055 2$: PUSHAB LUHREC+4 ; 1689. 
7E 0800 8F 3¢ 00056 MOVZWL #204 -(SP) : 
00006 CF 02 Fe 00058 CALLS #2, L{B_GET_MeEM : 
01 E 9060 BLBS STATUS, ~3$ : | 
4 0006 RET : | 
56 34 A DO 00064 3$: MOVL LUHREC+4, R6 : 1696 
58 D4 00068 CLRL RESTORE > 1698. 
04 AE 04 AE 9E 0006A MOVAB MODUPDL, MODUPDL : 1699 
08 AE 04 A GE Boner MOV MODUPDL, MODUPDL+4 3 1700 | 
0800 8F 00 6E 00 2c 007% MOVCS #0, (SPS, #0, #2048, (R6) : 1701 
0B Ab 6E 90 007¢ MOVB. —sUSRNAMLEN, 11(R6) : 1708 
OC Ab OC AE 6E é 0080 MOVC3 USRNAMLEN, USRNAMBUF, 12(R6) : 170 
OA A6 04 AC 0 it 13 MOVB OPERCODE, 10(R6) ; 1704 | 
000000006 00 eet CRrs i. SYSSGETTIM in 
3 AE 1 BB 0094 MOVL #24. LUHLEN : 1709 
08 Aé B4 00098 CLRW (RO) : 1710 | 
00006 DF OF 00098 4$: REMQUE @LIBSGL_MODUPDL, MODNB : 1714. 
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AX=11 Bliss-32 V4.0 


LIBRAR.SRCJPROCMD.B32;1 


7$ 
#0, #8, 8(MODNB), OPERCODE 
(MODNB), RO 
LUHLEN, RO 
RO, #2048 
58 

HREC 

L1BscL LIBCTL 

‘ LBRSPUT. HISTORY 


RO; Siar 10$ 
#24 LUHLEN 


UHLEN, R6, RO 
SCHON) (RO) 
RO 
RO. OPO UMODNB) . @LUHLENCR6) 
8(R6) 


9 (MODNB) 
RO. td 


(MODNB), @MODUPDL+4 
At RESTORE 


RESTORE, 9$ 
 - aalit MODNB 


(MODNB), @LIBSGL_MODUPDL +4 
oin6) 
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HREC 
tTBSGL_L 
#2, LBRSPUT. TRISTORY 


LIBSSIGNAL, LIBSSTOP 
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; pize: 1974 code + 6 data bytes 
: Run Time 00:40.5 
3 open Time: Oiiee-* 
; Lines/CPU Min: 61 

3 Lexemes/CPU-Min: 32819 
3 nenety Used: 291 pages 
3 a 


; Compilation sazatee 


LIB_PROCMD 1hesep-19 4 02:03:14 AX-11 Bliss-32 V4.0-742 Page 31 
v04=000 14- gep- obec 95:93:09 LIBRAR.SRCJPROCMD.B32;1 (11). 
: Name Bytes Attributes 

:  SOWNS 6 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON.NOPIC.ALIGN(2) 

; SCODES 1974 NOVEC: NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

: Library Statistics 

; ae eT ee eee ees Sy oe SOS == Syabols eccesece Pages Processing 

: File Total Loaded Percent Mapped Time 

: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 54 0 581 00:01.0 

; Information: 1 

3; Warnings: 

; Errors: 

: COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:PROCMD/OBJ=OBJ$:PROCMD MSRC$:PROCMD/UPDATE=(ENH$:PROCMD) 
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